'
' DotNetNuke� - http://www.dotnetnuke.com
' Copyright (c) 2002-2005
' by Perpetual Motion Interactive Systems Inc. ( http://www.perpetualmotion.ca )
'
' Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
' documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
' the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
' to permit persons to whom the Software is furnished to do so, subject to the following conditions:
'
' The above copyright notice and this permission notice shall be included in all copies or substantial portions 
' of the Software.
'
' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED 
' TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 
' THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF 
' CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 
' DEALINGS IN THE SOFTWARE.
'

Imports DotNetNuke.Common.Utilities.Null

Namespace DotNetNuke.Modules.Help

    Public Class HelpCategoryInfo

#Region "Private Members"

        Private m_categoryGUID As Guid
        Private m_categoryID As Integer
        Private m_name As String
        Private m_description As String
        Private m_image As String
        Private m_keyWords As String
        Private m_moduleID As Integer
        Private m_order As Integer
        Private m_level As Integer
        Private m_parent As Integer
        Private m_visible As Boolean
        Private m_deleted As Boolean

#End Region

#Region "Public Properties"

        Public Property CategoryGUID() As Guid
            Get
                Return m_categoryGUID
            End Get
            Set(ByVal Value As Guid)
                m_categoryGUID = Value
            End Set
        End Property

        Public Property CategoryID() As Integer
            Get
                Return m_categoryID
            End Get
            Set(ByVal Value As Integer)
                m_categoryID = Value
            End Set
        End Property

        Public Property Name() As String
            Get
                Return m_name
            End Get
            Set(ByVal Value As String)
                m_name = Value
            End Set
        End Property

        Public Property Description() As String
            Get
                Return m_description
            End Get
            Set(ByVal Value As String)
                m_description = Value
            End Set
        End Property

        Public Property Image() As String
            Get
                Return m_image
            End Get
            Set(ByVal Value As String)
                m_image = Value
            End Set
        End Property

        Public Property KeyWords() As String
            Get
                Return m_keyWords
            End Get
            Set(ByVal Value As String)
                m_keyWords = Value
            End Set
        End Property

        Public Property ModuleID() As Integer
            Get
                Return m_moduleID
            End Get
            Set(ByVal Value As Integer)
                m_moduleID = Value
            End Set
        End Property

        Public Property ViewOrder() As Integer
            Get
                Return m_order
            End Get
            Set(ByVal Value As Integer)
                m_order = Value
            End Set
        End Property

        Public Property Level() As Integer
            Get
                Return m_level
            End Get
            Set(ByVal Value As Integer)
                m_level = Value
            End Set
        End Property

        Public Property Parent() As Integer
            Get
                Return m_parent
            End Get
            Set(ByVal Value As Integer)
                m_parent = Value
            End Set
        End Property

        Public Property Visible() As Boolean
            Get
                Return m_visible
            End Get
            Set(ByVal Value As Boolean)
                m_visible = Value
            End Set
        End Property

        Public Property Deleted() As Boolean
            Get
                Return m_deleted
            End Get
            Set(ByVal Value As Boolean)
                m_deleted = Value
            End Set
        End Property
#End Region

#Region "Constructors"

        Public Sub New()
        End Sub

        Public Sub New(ByVal parentId As Integer, ByVal moduleID As Integer, ByVal level As Integer)
            Me.m_description = "New Category"
            Me.m_image = String.Empty
            Me.m_keyWords = NullString
            Me.m_parent = parentId
            Me.m_name = "New Category"
            Me.Visible = True
            Me.ModuleID = moduleID
            Me.m_level = level
        End Sub

        Public Sub New(ByVal ID As Integer, ByVal name As String, ByVal description As String, ByVal image As String, ByVal keyWords As String, ByVal viewTemplate As String, ByVal prodcutViewTemplate As String, ByVal moduleID As Integer, ByVal ViewOrder As Integer, ByVal level As Integer, ByVal parent As Integer, ByVal visible As Boolean, ByVal deleted As Boolean)
            Me.m_categoryID = CategoryID
            Me.m_name = name
            Me.m_description = description
            Me.m_image = image
            Me.m_keyWords = keyWords
            Me.m_moduleID = moduleID
            Me.m_order = ViewOrder
            Me.m_level = level
            Me.m_parent = parent
            Me.m_visible = visible
            Me.m_deleted = deleted
        End Sub

#End Region

    End Class

End Namespace

